home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 28 / Tiger_Disk_028_19xx_Tiger-Crew-Disk_de_Side_A.d64 / und wieder ende! (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  1KB  |  25 lines
  1. 10 poke53280,.:poke53281,.:printchr$(147)chr$(5)
  2. 12 rem ""   >gemacht von lukian<   ""
  3. 14 print"[158]was ist denn jetzt...?":ti$="000003":wait161,1:
  4. 16 fori=54272to54295:pokei,2:next:poke54296,15:poke54277,202:poke54278,239
  5. 18 poke54276,23:forj=1to40:print"[147][159]            etwa schon wieder   ":nextj
  6. 20 ti$="000003":wait161,1:print"[157][157][157][157][157][157][157][157]"
  7. 22 forz=1to1:a=1:fory=1to3:b=3 :poke54273,a:fori=1to4:poke54287,b:b=b*.99:nexti
  8. 24 forj=1to3:print"[147]          s c h l u s s  ? ?":nextj:
  9. 26 print"[145]          [154]>                  <[146]          "
  10. 28 a=a*.89 :nexty:fori=1to8 :poke54287,b:b=b*1.095:nexti:nextz:poke54278,15
  11. 30 print"[147]    doch!!   es  i s t  wirklich das[145][145][145][145][145]":ti$="000003":wait161,1:
  12. 32 printchr$(149):poke53334,24
  13. 34 forn=1to16:poke646,int(rnd(1)*16):print"[147]          [176][195][195][195][174]        [176][174]
  14. 36 [153]"          peekorlenlenexp        peekpeek
  15. 38 print"          [194][194]           [194][194]
  16. 40 [153]"          peek/len^ or=lenlen^orlenlenexppeekorlenlenlen^
  17. 42 print"          [194][176][195][189] [194][176][195][174][194][194][176][195][174][194][194][176][195][174][194]
  18. 44 [153]"          peekpeek   peekpeek peekpeekpeekpeek peekpeekpeek/lenexppeek
  19. 46 print"          [194][194]   [194][194] [194][194][194][194] [194][194][194][176][195][195][189]
  20. 48 [153]"          peek/lenlen^peekpeek peekpeekpeek/lenexppeekpeek/lenlen^
  21. 50 print"          [173][195][195][195][189][173][189] [173][189][173][195][195][195][189][173][195][195][195][189][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]":nextn
  22. 52 ti$="000003":wait161,1:poke53334,21: printchr$(30):
  23. 54 :fs=55296:sp=40:fe=fs+sp:fb=peek(53281):forx=0to22
  24. 56 fory=0to24*40step40:pokefs+y+x,fb:pokefe+y-x,fb:nexty,x:sys58253:end
  25.